home *** CD-ROM | disk | FTP | other *** search
/ Net Power 2000 February / NetCD2.iso / Patch / age / age2cpfix.exe / data / GAMEDATA.DRS / Unnamed File 000046.bina < prev    next >
Encoding:
Text File  |  1999-11-11  |  3.2 KB  |  181 lines
  1. ;error trapping
  2. (defrule
  3.     (current-age == imperial-age)
  4.     (not (goal rush-control NO) )
  5. =>
  6.     (set-goal rush-control NO)
  7. )
  8.  
  9. ;should we launch a rush?
  10. (defrule
  11.     (goal rush-control NOTICE)
  12. =>
  13.     (generate-random-number 12)
  14.     (disable-self)
  15. )
  16.  
  17. (defrule
  18.     (goal rush-control NOTICE)
  19.     (difficulty > hard)
  20.     (random-number == 1)
  21.     (or
  22.         (not (goal 1 10) )
  23.         (map-type archipelago)
  24.     )
  25. =>
  26.     (set-goal rush-control RUSHING)
  27.     (disable-self)
  28. )
  29.  
  30. ;(defrule
  31. ;    (goal rush-control NOTICE)
  32. ;    (difficulty > hard)
  33. ;    (random-number >= 2)
  34. ;    (random-number <= 5)
  35. ;=>
  36. ;    (set-goal rush-control FEUDAL)
  37. ;    (disable-self)
  38. ;)
  39.  
  40. (defrule
  41.     (goal rush-control NOTICE)
  42.     (difficulty > hard)
  43.     (random-number >= 2)
  44.     (random-number <= 8)
  45. =>
  46.     (set-goal rush-control CASTLE)
  47.     (disable-self)
  48. )
  49.  
  50. (defrule
  51.     (goal rush-control NOTICE)
  52.     (difficulty <= hard)
  53.     (random-number >= 1)
  54.     (random-number <= 2)
  55.     (or
  56.         (not (goal 1 10) )
  57.         (map-type archipelago)
  58.     )
  59. =>
  60.     (set-goal rush-control RUSHING)
  61.     (disable-self)
  62. )
  63.  
  64. ;(defrule
  65. ;    (goal rush-control NOTICE)
  66. ;    (difficulty <= hard)
  67. ;    (random-number >= 3)
  68. ;    (random-number <= 6)
  69. ;=>
  70. ;    (set-goal rush-control FEUDAL)
  71. ;    (disable-self)
  72. ;)
  73.  
  74. (defrule
  75.     (goal rush-control NOTICE)
  76.     (difficulty <= hard)
  77.     (random-number >= 3)
  78.     (random-number <= 9)
  79. =>
  80.     (set-goal rush-control CASTLE)
  81.     (disable-self)
  82. )
  83.  
  84. (defrule
  85.     (goal rush-control NOTICE)
  86. =>
  87.     (set-goal rush-control IMPERIAL)
  88.     (disable-self)
  89. )
  90.  
  91. ;(defrule
  92. ;    (goal rush-control FEUDAL)
  93. ;    (or
  94. ;        (map-type black-forest)
  95. ;        (map-type fortress)
  96. ;    )
  97. ;=>
  98. ;    (set-goal rush-control IMPERIAL)
  99. ;    (disable-self)
  100. ;)
  101.  
  102. (defrule
  103.     (goal rush-control RUSHING)
  104.     (current-age == dark-age)
  105.     (or
  106.         (map-type black-forest)
  107.         (map-type fortress)
  108.     )
  109. =>
  110.     (set-goal rush-control IMPERIAL)
  111.     (disable-self)
  112. )
  113.  
  114. ;**************************************
  115. ;do the dark-age / feudal rush
  116. (defrule
  117.     (goal rush-control RUSHING)
  118.     (current-age == dark-age)
  119.     (soldier-count < five-percent-pop)
  120.     (or
  121.         (civilian-population >= civ-dark-rush)
  122.         (civilian-population >= 15)
  123.     )
  124.     (can-train militiaman)
  125. =>
  126.     (train militiaman)
  127.     (chat-local-to-self "train militia")
  128. )
  129.  
  130. ;*******************************************************
  131. ;FEUDAL RUSH RULES
  132. ;(defrule
  133. ;    (goal rush-control FEUDAL)
  134. ;    (current-age >= feudal-age)
  135. ;=>
  136. ;    (set-goal rush-control RUSHING)
  137. ;    (disable-self)
  138. ;)
  139.  
  140. ;go after boomers
  141. ;(defrule
  142. ;    (current-age >= feudal-age) 
  143. ;    (difficulty <= easy)
  144. ;    (players-current-age every-enemy <= feudal-age)
  145. ;    (players-civilian-population every-enemy > civ-castle)
  146. ;=>
  147. ;    (set-goal rush-control RUSHING)
  148. ;    (disable-self)
  149. ;)
  150.  
  151. ;end the feudal rush
  152. (defrule
  153.     (goal rush-control RUSHING)
  154.     (current-age == feudal-age)
  155.     (players-current-age any-enemy > feudal-age)
  156. =>
  157.     (set-goal rush-control IMPERIAL)
  158.     (disable-self)
  159. )
  160.  
  161. ;*******************************************************
  162. ;should we launch a castle rush?
  163. (defrule
  164.     (goal rush-control CASTLE)
  165.     (current-age >= castle-age)
  166. =>
  167.     (set-goal rush-control RUSHING)
  168.     (disable-self)
  169. )
  170.  
  171. ;end the rush
  172. (defrule
  173.     (goal rush-control RUSHING)
  174.     (current-age == castle-age)
  175.     (players-current-age any-enemy == imperial-age)
  176. =>
  177.     (set-goal rush-control IMPERIAL)
  178.     (disable-self)
  179. )
  180.  
  181.